(file-regular-p-18): Fix test for whether to use this.

diff --git a/lisp/vc.el b/lisp/vc.el
index 729016d256d5c7d74816ce87746401770d714634..521b949d32efe3abd606059381bb566180c25c8f 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -190,7 +190,7 @@ and that its contents match what the master file says.")
       (fset 'shrink-window-if-larger-than-buffer 'beginning-of-buffer)
       ))
 
-(if (not (boundp 'file-regular-p))
+(if (not (fboundp 'file-regular-p))
     (fset 'file-regular-p 'file-regular-p-18))
 
 ;;; functions that operate on RCS revision numbers